home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS08.ADF / AmigaBasicProgs / ColorArt < prev    next >
Text File  |  1986-04-02  |  1KB  |  42 lines
  1. PRINT:PRINT
  2. PRINT SPC(32);"C O L O R  A R T"
  3. PRINT
  4. PRINT SPC(39);"By"
  5. PRINT 
  6. PRINT SPC(35);"Rick Wirch"
  7. PRINT
  8. PRINT SPC(31);"Press Mouse Button"
  9. WHILE B=0: B= MOUSE(0): WEND
  10. WHILE B<>0:B= MOUSE(0): WEND
  11.  
  12.  
  13.     DEFINT a-z
  14.     DIM reg!(15)
  15.     SCREEN 1,320,200,4,1: WINDOW 2, "Color Art", (0,0)-(310,186), 0, 1
  16.     WINDOW OUTPUT 2
  17.     PALETTE 0 ,0/15,1/15,1/15 : PALETTE 1,0/15,1/15,1/15
  18.     FOR P = 0 TO 15: reg!(P) = P/15 : NEXT : z = 0 : RANDOMIZE TIMER
  19. Loop:
  20.   CLS
  21.   COLOR 0,0:PAINT (160,100)
  22.   xo= 160: yo=99
  23.   ra!=RND*3.1416+.01
  24.   FOR i!=0 TO 18 STEP .05
  25.     x=150*SIN(i!)+160: y=90*COS(ra!*i!)+96
  26.     IF z>10 THEN
  27.       y1=90*SIN(ra!*i!)+96 : x1=150*COS(i!)+160: LINE(x,y)-(x1,y1),,bf
  28.     ELSEIF z>5 THEN
  29.       y1=90*SIN(ra!*i!)+96 : x1=150*COS(i!)+160
  30.       AREA(310-x1,186-y1): AREA(x1,y1): AREA(x,y): AREAFILL
  31.     ELSE
  32.       AREA(160, 99): AREA(xo, yo): AREA(x, y): AREAFILL: xo = x: yo = y
  33.     END IF
  34.     B= MOUSE(0)
  35.     IF B <> 0 OR INKEY$<> "" THEN WINDOW CLOSE 2: SCREEN CLOSE 1: END
  36.     COL=(COL+1)MOD 13
  37.     FOR P=2 TO 15: PALETTE (P+COL)MOD 13+2,reg!(z),reg!(P),reg!(P): NEXT
  38.     COLOR COL+2
  39.   NEXT
  40.   z = RND*15
  41.   GOTO Loop
  42.